#!/usr/bin/perl -w

use vars qw($DIR);
BEGIN {
    unshift @INC, "../libs";
};
use strict;
use POSIX qw(strftime);

#$Config::PF= "../extsender.conf";
#use Config;
use Conn;

#if (!$SYS_CFG) {
#    Config::import;
#}
#my $c = $SYS_CFG;
#print $c->{BASEDIR};

p();
